www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminLink\admin_newsAdd_Chk.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>





<LINK href="../css.css" type=text/css rel=stylesheet>
<%

dir_set="../../"


%>


<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->

<!--#include file=../../inc/ajaxLIB.asp-->

<!--#include file=../inc/checkadmin2.asp-->

<!--#include file=../../inc/functionFiless.asp-->


<!--#include file="inc_ziduan.asp"-->
<%
title=request.Form("title")









connect=request.Form("uuuurl")

cccca=trim(request("cccc"))

if cccca="" or isnumeric(cccca)<>true then

	Response.Write("<script>alert(""显示次序 必填且必须为数字"");history.go(-1);</script>")
else


if title="" or connect="" then
	Response.Write("<script>alert(""请添写完整信息"");history.go(-1);</script>")
else



openconn()
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from "&aaaa&"",conn,1,3
if not rs.eof then
rs.movelast
newid=rs("newid")+1
else
newid=1
end if
rs.addnew



rs("smallpic")=request("pica")

rs("orders")=clng(cccca)


rs("title")=title
'rs("class")=di1class
'rs("di2_class")=di2class
'rs("di3_class")=di3class
'rs("adder")=adder
rs("connect")=connect
rs("newid")=newid
rs("time")=now()
rs.update
rs.close
set rs=nothing
call closeconn()
	Response.Write("<script language=javascript>alert(""添加成功"");location.href=""admin_news.asp"";</script>")




end if
end if

%>